home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / CHIP Turkiye Temmuz 2000.iso / prog / share / 02 / ARCHIVE.Z / PDF Format.aip / PSPROCSET / 6 < prev    next >
Text File  |  1998-09-17  |  12KB  |  756 lines
  1. %%BeginFile: pdftext.prc
  2. %%Copyright: Copyright 1987-1998 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFText 75 dict dup begin put
  4. /initialize { PDFText begin } bd
  5. /terminate { end } bd
  6. /pdf_has_composefont? systemdict /composefont known def
  7. /CopyFont {
  8. {
  9. 1 index /FID ne 2 index /UniqueID ne and
  10. { def } { pop pop } ifelse
  11. } forall
  12. } bd
  13. /Type0CopyFont
  14. {
  15. exch
  16. dup length dict
  17. begin
  18. CopyFont
  19. [
  20. exch
  21. FDepVector
  22. {
  23. dup /FontType get 0 eq
  24. {
  25. 1 index Type0CopyFont
  26. /_pdfType0 exch definefont
  27. }
  28. {
  29. /_pdfBaseFont exch
  30. 2 index exec
  31. }
  32. ifelse
  33. exch
  34. }
  35. forall
  36. pop
  37. ]
  38. /FDepVector exch def
  39. currentdict
  40. end
  41. } bd
  42. /cHexEncoding
  43. [/c00/c01/c02/c03/c04/c05/c06/c07/c08/c09/c0A/c0B/c0C/c0D/c0E/c0F/c10/c11/c12
  44. /c13/c14/c15/c16/c17/c18/c19/c1A/c1B/c1C/c1D/c1E/c1F/c20/c21/c22/c23/c24/c25
  45. /c26/c27/c28/c29/c2A/c2B/c2C/c2D/c2E/c2F/c30/c31/c32/c33/c34/c35/c36/c37/c38
  46. /c39/c3A/c3B/c3C/c3D/c3E/c3F/c40/c41/c42/c43/c44/c45/c46/c47/c48/c49/c4A/c4B
  47. /c4C/c4D/c4E/c4F/c50/c51/c52/c53/c54/c55/c56/c57/c58/c59/c5A/c5B/c5C/c5D/c5E
  48. /c5F/c60/c61/c62/c63/c64/c65/c66/c67/c68/c69/c6A/c6B/c6C/c6D/c6E/c6F/c70/c71
  49. /c72/c73/c74/c75/c76/c77/c78/c79/c7A/c7B/c7C/c7D/c7E/c7F/c80/c81/c82/c83/c84
  50. /c85/c86/c87/c88/c89/c8A/c8B/c8C/c8D/c8E/c8F/c90/c91/c92/c93/c94/c95/c96/c97
  51. /c98/c99/c9A/c9B/c9C/c9D/c9E/c9F/cA0/cA1/cA2/cA3/cA4/cA5/cA6/cA7/cA8/cA9/cAA
  52. /cAB/cAC/cAD/cAE/cAF/cB0/cB1/cB2/cB3/cB4/cB5/cB6/cB7/cB8/cB9/cBA/cBB/cBC/cBD
  53. /cBE/cBF/cC0/cC1/cC2/cC3/cC4/cC5/cC6/cC7/cC8/cC9/cCA/cCB/cCC/cCD/cCE/cCF/cD0
  54. /cD1/cD2/cD3/cD4/cD5/cD6/cD7/cD8/cD9/cDA/cDB/cDC/cDD/cDE/cDF/cE0/cE1/cE2/cE3
  55. /cE4/cE5/cE6/cE7/cE8/cE9/cEA/cEB/cEC/cED/cEE/cEF/cF0/cF1/cF2/cF3/cF4/cF5/cF6
  56. /cF7/cF8/cF9/cFA/cFB/cFC/cFD/cFE/cFF] def
  57. /modEnc {
  58. /_enc xdd
  59. /_icode 0 dd
  60. counttomark 1 sub -1 0
  61. {
  62. index
  63. dup type /nametype eq
  64. {
  65. _enc _icode 3 -1 roll put
  66. _icode 1 add
  67. }
  68. if
  69. /_icode xdd
  70. } for
  71. cleartomark
  72. _enc
  73. } bd
  74. /trEnc {
  75. /_enc xdd
  76. 255 -1 0 {
  77. exch dup -1 eq
  78. { pop /.notdef }
  79. { Encoding exch get }
  80. ifelse
  81. _enc 3 1 roll put
  82. } for
  83. pop
  84. _enc
  85. } bd
  86. /TE {
  87. /_i xdd
  88. StandardEncoding 256 array copy modEnc
  89. _pdfEncodings exch _i exch put
  90. } bd
  91. /TZ
  92. {
  93. /_usePDFEncoding xdd
  94. findfont
  95. dup length 2 add dict
  96. begin
  97. {
  98. 1 index /FID ne { def } { pop pop } ifelse
  99. } forall
  100. /FontName exch def
  101. _usePDFEncoding 0 ge
  102. {
  103. /Encoding _pdfEncodings _usePDFEncoding get def
  104. pop
  105. }
  106. {
  107. _usePDFEncoding -1 eq
  108. {
  109. counttomark 0 eq
  110. { pop }
  111. {
  112. Encoding 256 array copy
  113. modEnc /Encoding exch def
  114. }
  115. ifelse
  116. }
  117. {
  118. 256 array
  119. trEnc /Encoding exch def
  120. }
  121. ifelse
  122. }
  123. ifelse
  124. FontName currentdict
  125. end
  126. definefont pop
  127. }
  128. bd
  129. /Level2?
  130. systemdict /languagelevel known
  131. {systemdict /languagelevel get 2 ge}
  132. {false}
  133. ifelse
  134. def
  135. Level2?
  136. {
  137. /_pdfFontStatus
  138. {
  139. currentglobal exch
  140. /Font resourcestatus
  141. {pop pop true}
  142. {false}
  143. ifelse
  144. exch setglobal
  145. } bd
  146. }
  147. {
  148. /_pdfFontStatusString 50 string def
  149. _pdfFontStatusString 0 (fonts/) putinterval
  150. /_pdfFontStatus
  151. {
  152. FontDirectory 1 index known
  153. { pop true }
  154. {
  155. _pdfFontStatusString 6 42 getinterval
  156. cvs length 6 add
  157. _pdfFontStatusString exch 0 exch getinterval
  158. { status } stopped
  159. {pop false}
  160. {
  161. { pop pop pop pop true}
  162. { false }
  163. ifelse
  164. }
  165. ifelse
  166. }
  167. ifelse
  168. } bd
  169. }
  170. ifelse
  171. Level2?
  172. {
  173. /_pdfCIDFontStatus
  174. {
  175. /CIDFont /Category resourcestatus
  176. {
  177. pop pop
  178. /CIDFont resourcestatus
  179. {pop pop true}
  180. {false}
  181. ifelse
  182. }
  183. { pop false }
  184. ifelse
  185. } bd
  186. }
  187. if
  188. /_pdfString100 100 string def
  189. /_pdfComposeFontName
  190. {
  191. dup length 1 eq
  192. {
  193. 0 get
  194. 1 index
  195. type /nametype eq
  196. {
  197. _pdfString100 cvs
  198. length dup dup _pdfString100 exch (-) putinterval
  199. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  200. 2 index exch cvs length
  201. add 1 add _pdfString100 exch 0 exch getinterval
  202. exch pop
  203. true
  204. }
  205. {
  206. pop pop
  207. false
  208. }
  209. ifelse
  210. }
  211. {
  212. false
  213. }
  214. ifelse
  215. } bd
  216. pdf_has_composefont?
  217. {
  218. /_pdfComposeFont
  219. {
  220. 1 index /CMap resourcestatus
  221. {pop pop true}
  222. {false}
  223. ifelse
  224. 1 index true exch
  225. {
  226. _pdfCIDFontStatus not
  227. {pop false exit}
  228. if
  229. }
  230. forall
  231. and
  232. { 3 -1 roll pop composefont true}
  233. {
  234. 4 -1 roll pop
  235. _pdfComposeFontName
  236. {
  237. dup _pdfFontStatus
  238. { findfont definefont true }
  239. {
  240. pop
  241. dup _pdfFontStatus
  242. { findfont true }
  243. { pop false }
  244. ifelse
  245. }
  246. ifelse
  247. }
  248. {
  249. dup _pdfFontStatus
  250. { findfont true }
  251. { pop false }
  252. ifelse
  253. }
  254. ifelse
  255. }
  256. ifelse
  257. } bd
  258. }
  259. {
  260. /_pdfComposeFont
  261. {
  262. 4 -1 roll pop
  263. _pdfComposeFontName not
  264. {
  265. dup
  266. }
  267. if
  268. 2 copy _pdfFontStatus
  269. {pop findfont exch pop true}
  270. {
  271. eq
  272. {pop false}
  273. {
  274. dup _pdfFontStatus
  275. {findfont true}
  276. {pop false}
  277. ifelse
  278. }
  279. ifelse
  280. }
  281. ifelse
  282. } bd
  283. }
  284. ifelse
  285. /_pdfFaceByStyleDict 4 dict dup begin
  286. Level2?
  287. {
  288. /Serif
  289. /HeiseiMin-W3-83pv-RKSJ-H _pdfFontStatus
  290. {/HeiseiMin-W3}
  291. {/Ryumin-Light}
  292. ifelse
  293. def
  294. /SansSerif
  295. /HeiseiKakuGo-W5-83pv-RKSJ-H _pdfFontStatus
  296. {/HeiseiKakuGo-W5}
  297. {/GothicBBB-Medium}
  298. ifelse
  299. def
  300. /HeiseiMaruGo-W4-83pv-RKSJ-H _pdfFontStatus
  301. {/HeiseiMaruGo-W4}
  302. {
  303. /Jun101-Light-RKSJ-H _pdfFontStatus
  304. { /Jun101-Light }
  305. { SansSerif }
  306. ifelse
  307. }
  308. ifelse
  309. /RoundSansSerif exch def
  310. /Default Serif def
  311. }
  312. {
  313. /Serif /Ryumin-Light def
  314. /SansSerif /GothicBBB-Medium def
  315. {
  316. (fonts/Jun101-Light-83pv-RKSJ-H) status
  317. }stopped
  318. {pop}{
  319. { pop pop pop pop /Jun101-Light }
  320. { SansSerif }
  321. ifelse
  322. /RoundSansSerif exch def
  323. }ifelse
  324. /Default Serif def
  325. }
  326. ifelse
  327. end
  328. def
  329. /_pdf_Adobe-Japan1-2 (Adobe-Japan1-2) def
  330. /_pdfConcatNames
  331. {
  332. exch
  333. _pdfString100 cvs
  334. length dup dup _pdfString100 exch (-) putinterval
  335. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  336. 3 -1 roll exch cvs length
  337. add 1 add _pdfString100 exch 0 exch getinterval
  338. } bind def
  339. /_pdfSubSetFontByStyleDict 4 dict dup begin
  340. _pdfFaceByStyleDict
  341. {
  342. _pdf_Adobe-Japan1-2 _pdfConcatNames
  343. dup _pdfFontStatus
  344. { def }
  345. { pop pop }
  346. ifelse
  347. }
  348. forall
  349. end def
  350. /TZzero
  351. {
  352. /_fyAdj xdd
  353. /_wmode xdd
  354. /_styleArr xdd
  355. 4 copy
  356. _pdfComposeFont
  357. {exch pop exch pop exch pop}
  358. {
  359. [
  360. 0 1 _styleArr length 1 sub
  361. {
  362. _styleArr exch get
  363. _pdfFaceByStyleDict exch 2 copy known not
  364. { pop /Default }
  365. if
  366. get
  367. }
  368. for
  369. ]
  370. exch pop
  371. 3 index 3 index 4 2 roll
  372. _pdfComposeFont
  373. {exch pop}
  374. {
  375. findfont
  376. }
  377. ifelse
  378. }
  379. ifelse
  380. dup /FontType get 3 eq _wmode 1 eq and
  381. {
  382. _pdfVerticalRomanT3Font dup length 10 add dict copy
  383. begin
  384. /_basefont exch def
  385. /Encoding _basefont /Encoding get def
  386. }
  387. {
  388. dup length 3 add dict
  389. begin
  390. {1 index /FID ne {def}{pop pop} ifelse }
  391. forall
  392. } ifelse
  393. /WMode _wmode def
  394. /BaseLineAdj _fyAdj def
  395. FontType 0 ne
  396. {
  397. /Encoding Encoding dup length array copy dup 16#5c /yen put def
  398. /_fauxfont true def
  399. } if
  400. currentdict
  401. end
  402. definefont pop
  403. }
  404. bd
  405. /swj {
  406. dup 4 1 roll
  407. dup length exch stringwidth
  408. exch 5 -1 roll 3 index mul add
  409. 4 1 roll 3 1 roll mul add
  410. 6 2 roll /_cnt 0 dd
  411. {1 index eq {/_cnt _cnt 1 add dd} if} forall pop
  412. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  413. } bd
  414. /jss {
  415. 4 1 roll
  416. {
  417. 2 npop
  418. (0) exch 2 copy 0 exch put
  419. gsave
  420. 32 eq
  421. {
  422. exch 6 index 6 index 6 index 5 -1 roll widthshow
  423. currentpoint
  424. }
  425. {
  426. false charpath currentpoint
  427. 4 index setmatrix stroke
  428. }
  429. ifelse
  430. grestore
  431. moveto
  432. 2 copy rmoveto
  433. } exch cshow
  434. 6 npop
  435. } def
  436. /jsfTzero {
  437. {
  438. 2 npop
  439. (0) exch 2 copy 0 exch put
  440. exch show
  441. 32 eq
  442. {
  443. 4 index 4 index rmoveto
  444. }
  445. if
  446. 2 copy rmoveto
  447. } exch cshow
  448. 5 npop
  449. } def
  450. /jsp
  451. {
  452. {
  453. 2 npop
  454. (0) exch 2 copy 0 exch put
  455. 32 eq
  456. { exch 5 index 5 index 5 index 5 -1 roll widthshow }
  457. { false charpath }
  458. ifelse
  459. 2 copy rmoveto
  460. } exch cshow
  461. 5 npop
  462. } bd
  463. /trj { _cx 0 fWModeProc 32 _ax 0 fWModeProc 6 5 roll } bd
  464. /pjsf { trj sfc fawidthshowProc } bd
  465. /pjss { trj _ctm ssc jss } bd
  466. /pjsc { trj jsp } bd
  467. /_Tjdef [
  468. /pjsf load
  469. /pjss load
  470. {
  471. dup
  472. currentpoint 3 2 roll
  473. pjsf
  474. newpath moveto
  475. pjss
  476. } bind
  477. {
  478. trj swj rmoveto
  479. } bind
  480. {
  481. dup currentpoint 4 2 roll gsave
  482. pjsf
  483. grestore 3 1 roll moveto
  484. pjsc
  485. } bind
  486. {
  487. dup currentpoint 4 2 roll
  488. currentpoint gsave newpath moveto
  489. pjss
  490. grestore 3 1 roll moveto
  491. pjsc
  492. } bind
  493. {
  494. dup currentpoint 4 2 roll gsave
  495. dup currentpoint 3 2 roll
  496. pjsf
  497. newpath moveto
  498. pjss
  499. grestore 3 1 roll moveto
  500. pjsc
  501. } bind
  502. /pjsc load
  503. ] def
  504. /BT
  505. {
  506. /_inT true dd
  507. _ctm currentmatrix pop matrix _tm copy pop
  508. 0 _rise _baselineadj add translate _hs 1 scale
  509. 0 0 moveto
  510. } bd
  511. /ET
  512. {
  513. /_inT false dd
  514. _tr 3 gt {clip} if
  515. _ctm setmatrix newpath
  516. } bd
  517. /Tr {
  518. _inT { _tr 3 le {currentpoint newpath moveto} if } if
  519. dup /_tr xdd
  520. _Tjdef exch get /_Tj xdd
  521. } bd
  522. /Tj {
  523. userdict /$$copystring 2 index put
  524. _Tj
  525. } bd
  526. /iTm { _ctm setmatrix _tm concat 0 _rise _baselineadj add translate _hs 1 scale } bd
  527. /Tm { _tm astore pop iTm 0 0 moveto } bd
  528. /Td { _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto } bd
  529. /TD { dup /_ld xdd Td } bd
  530. /_nullProc {} bd
  531. /Tf {
  532. dup 1000 div /_fScl xdd
  533. Level2?
  534. { selectfont }
  535. { exch findfont exch scalefont setfont}
  536. ifelse
  537. currentfont dup
  538. /_nullProc exch
  539. /WMode known
  540. {
  541. 1 index /WMode get 1 eq
  542. {pop /exch}
  543. if
  544. }
  545. if
  546. load /fWModeProc xdd
  547. dup
  548. /FontType get 0 eq dup _cx 0 ne and
  549. { /jsfTzero }
  550. { /awidthshow }
  551. ifelse
  552. load /fawidthshowProc xdd
  553. /_fTzero xdd
  554. dup /BaseLineAdj known
  555. { dup /BaseLineAdj get _fScl mul }
  556. { 0 }
  557. ifelse
  558. /_baselineadj xdd
  559. currentpoint iTm moveto
  560. pop
  561. } bd
  562. /TL { neg /_ld xdd } bd
  563. /Tw {
  564. /_cx xdd
  565. _cx 0 ne _fTzero and
  566. { /jsfTzero }
  567. { /awidthshow }
  568. ifelse
  569. load /fawidthshowProc xdd
  570. } bd
  571. /Tc { /_ax xdd } bd
  572. /Ts { /_rise xdd currentpoint iTm moveto } bd
  573. /Tz { 100 div /_hs xdd iTm } bd
  574. /Tk { exch pop _fScl mul neg 0 fWModeProc rmoveto } bd
  575. /T* { 0 _ld Td } bd
  576. /' { T* Tj } bd
  577. /" { exch Tc exch Tw ' } bd
  578. /TJ {
  579. {
  580. dup type /stringtype eq
  581. { Tj }
  582. { 0 exch Tk }
  583. ifelse
  584. } forall
  585. } bd
  586. /T- { _hy Tj } bd
  587. /d0/setcharwidth ld
  588. /d1 { setcachedevice /sfc{}dd /ssc{}dd } bd
  589. /nND {{/.notdef} repeat} bd
  590. /T3Defs {
  591. /BuildChar
  592. {
  593. 1 index /Encoding get exch get
  594. 1 index /BuildGlyph get exec
  595. }
  596. def
  597. /BuildGlyph {
  598. exch begin
  599. GlyphProcs exch get exec
  600. end
  601. } def
  602. } bd
  603. /_pdfBoldRomanWidthProc
  604. {
  605. stringwidth 1 index 0 ne { exch .03 add exch }if setcharwidth
  606. } bd
  607. /_pdfType0WidthProc
  608. {
  609. dup stringwidth 0 0 moveto
  610. 2 index true charpath pathbbox
  611. 0 -1
  612. 7 index 2 div .88
  613. setcachedevice2
  614. pop
  615. } bd
  616. /_pdfBoldBaseFont
  617. 11 dict begin
  618. /FontType 3 def
  619. /FontMatrix[1 0 0 1 0 0]def
  620. /FontBBox[0 0 1 1]def
  621. /Encoding cHexEncoding def
  622. /_setwidthProc /_pdfBoldRomanWidthProc load def
  623. /_bcstr1 1 string def
  624. /BuildChar
  625. {
  626. exch begin
  627. _basefont setfont
  628. _bcstr1 dup 0 4 -1 roll put
  629. dup
  630. _setwidthProc
  631. 0 0 moveto
  632. dup show
  633. _basefonto setfont
  634. 0 0 moveto
  635. show
  636. end
  637. }bd
  638. currentdict
  639. end
  640. def
  641. /_pdfVerticalRomanT3Font
  642. 10 dict begin
  643. /FontType 3 def
  644. /FontMatrix[1 0 0 1 0 0]def
  645. /FontBBox[0 0 1 1]def
  646. /_bcstr1 1 string def
  647. /BuildChar
  648. {
  649. exch begin
  650. _basefont setfont
  651. _bcstr1 dup 0 4 -1 roll put
  652. dup
  653. _pdfType0WidthProc
  654. 0 0 moveto
  655. show
  656. end
  657. }bd
  658. currentdict
  659. end
  660. def
  661. /MakeBoldFont
  662. {
  663. dup dup length 3 add dict
  664. begin
  665. CopyFont
  666. /PaintType 2 def
  667. /StrokeWidth .03 0 FontMatrix idtransform pop def
  668. /dummybold currentdict
  669. end
  670. definefont
  671. _pdfBoldBaseFont dup length 3 add dict copy begin
  672. /_basefont exch def
  673. /_basefonto exch def
  674. currentdict
  675. end
  676. definefont
  677. } bd
  678. /MakeBold {
  679. exch 1 index findfont dup
  680. /FontType get 0 eq
  681. {
  682. _pdfBoldBaseFont /_setwidthProc /_pdfType0WidthProc load put
  683. {MakeBoldFont} Type0CopyFont definefont
  684. }
  685. {
  686. dup /_fauxfont known not
  687. {
  688. _pdfBoldBaseFont /_setwidthProc /_pdfBoldRomanWidthProc load put
  689. MakeBoldFont
  690. }
  691. {
  692. 2 index 2 index eq
  693. { exch pop }
  694. {
  695. dup length dict begin
  696. CopyFont
  697. currentdict
  698. end
  699. definefont
  700. }
  701. ifelse
  702. }
  703. ifelse
  704. }
  705. ifelse
  706. pop pop
  707. }bd
  708. /MakeItalic {
  709. findfont
  710. dup /FontType get 0 eq Level2? not and
  711. { dup /FMapType get 6 eq }
  712. { false }
  713. ifelse
  714. {
  715. dup /WMode 2 copy known
  716. {
  717. get 1 eq
  718. { _italMtx_WMode1Type0 }
  719. { _italMtxType0 }
  720. ifelse
  721. }
  722. { pop pop _italMtxType0 }
  723. ifelse
  724. }
  725. {
  726. dup /WMode 2 copy known
  727. {
  728. get 1 eq
  729. { _italMtx_WMode1 }
  730. { _italMtx }
  731. ifelse
  732. }
  733. { pop pop _italMtx }
  734. ifelse
  735. }
  736. ifelse
  737. makefont
  738. Level2? not
  739. {
  740. dup length dict begin
  741. CopyFont
  742. currentdict
  743. end
  744. }
  745. if
  746. definefont pop
  747. }bd
  748. /MakeBoldItalic {
  749. /dummybold exch
  750. MakeBold
  751. /dummybold
  752. MakeItalic
  753. }bd
  754. currentdict readonly pop end
  755. %%EndFile
  756.